﻿Public MustInherit Class TCustomMyObject
    Private _ObjectName As String
    Private _MyQuery As TMyQuery
    Private _DatabaseName As String
    Protected _Source As String

    Public MustOverride ReadOnly Property Source() As String
    Public ReadOnly Property DatabaseName() As String
        Get
            Return _DatabaseName
        End Get
    End Property
    Protected Friend ReadOnly Property MyQuery() As TMyQuery
        Get
            Return _MyQuery
        End Get
    End Property

    Friend Sub New(ByVal AOwner As TCustomMyObjects, ByVal AObjectName As String)
        _MyQuery = AOwner.MyQuery
        _ObjectName = AObjectName
        _DatabaseName = AOwner.DatabaseName
    End Sub

    Public ReadOnly Property ObjectName() As String
        Get
            Return _ObjectName
        End Get
    End Property
End Class
